0 REM"* DISK-EXERCISER BY H.GEHRMANN HGSS *  "(null)
9 REM"* DISK-EXERCISER BY H.GEHRMANN HGSS *  "(null)
10 POKE53280,5:POKE53281,7:REM DISK-EXERCISE
20 PRINT"[147] DISK-EXERCISER  BY HG-SOFTWARE SYSTEMS [146]
25 [153]"DISK-STATUS DURING EXERCISE:"
27 [153]"STOPTIME OF READING (MUST BE <9):"
28 [141]110
30 A1$[178]"":A2$[178]"        CMDCMDCMDCMDCMDCMDCMDCMD"
35 A1$[178]A1$[170]"                    CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"
40 [159]5,8,15:[159]4,8,3,"#":[159]1,8,15
50 TI$[178]"000000":[152]5,"B-R";3;0;1;1:[152]5,"B-P"3;1:[161]#4,A$
60 [143]
70 [152]5,"B-R";3;0;35;2:[152]5,"B-P"3;1:[161]#4,A$
80 [132]1,X1,X2$,X3,X4:[153]A1$;X1;X2$;X3;X4:ZW[178]TI
90 [153]A2$;ZW:[139]ZW[179]9[167][129]W[178]1[164]1000:[130]W:[137]160
100 [137]50
110 [153]"VERIFYDIESES PROGRAMM TRAINIERT  DAS  POSITIO-";
120 [153]"REN DES TONKOPFES SEITENS DES DISKETTEN-";
130 [153]"LAUFWERKES.  WENN EINE AUSREICHENDE ZEIT";
140 [153]"ERREICHT IST,  GEHT ES MIT DER NAECHSTEN";
150 [153]"UEBUNG WEITER.":[142]
160 [160]4:[160]5:[160]1
170 [159]1,8,15
180 [153]A2$;"ONNOW INITIALIZING!               "
190 [129]W[178]1[164]10:[152]1,"I":[132]1,X1,X2$,X3,X4:[153]A1$;X1;X2$;X3;X4:[130]W
200 [160]1
210 [153]"LOAD   DISK-DRIVE AND DISK HAS TRESPASSED   ";
220 [153]"                EXERCISING              "
230 [153]"STOPDURCH DIESE PROZEDUR..."
240 [153]"...HAT SICH DER TONKOPF OPTIMALWAIT POSITIO-";
250 [153]"   NIERT
260 PRINT"...HABEN SIE SOMIT REPARATURGELD UND RE-";
270 PRINT"   PARATURWARTEZEIT GESPART"
280 PRINT"...HAT DER SCHRITTMOTOR WIEDER EIN  BIS-";
290 PRINT"   CHEN UEBUNG BEKOMMEN UND  SIE  SPAREN";
300 PRINT"   POSITIONIERUNGSZEIT"
310 PRINT"[149]HOLGER GEHRMANN[141]HEINRICHSTR. 25[141]3000 HANNOVER 1[141]TEL:0511/344771"
320 PRINT"TAUSCH VON C=64[141]PROGRAMMEN !!!!
330 [153]"SYS";: